home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh21b.d64 / mprg im basic (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  51 lines
  1. 10 GOSUB540:PRINT" ES WERDEN PROGRAMME IN MASCHINENSPRACHE MIT BIS ZU";
  2. 20 PRINT" 249 BYTES IN BASIC-ZEILEN    VERPACKT UND AUTOMATISCH AUF DISKETTE ";
  3. 30 PRINT"  GESPEICHERT.",,," IHR START LIEGT JEWEILS BEI [129]SYS2054[154].  "
  4. 40 PRINT" BITTE [159]SHIFT[154] DRUECKEN.":WAIT653,1
  5. 100 GOSUB540:PRINT,"MAXIMAL 249 ZEICHEN"SPC(22)"START MIT SYS2054":OPEN2,8,15
  6. 110 PRINT" IST DAS PRG AUF DISKETTE (J/N)?":GOSUB500:IFA$="N"THEN520
  7. 120 INPUT" NAME DES PROGRAMMS";NA$:OPEN1,8,8,NA$+",P,R":GOSUB560
  8. 130 IFA=62THENPOKE198,0:WAIT198,1:GOSUB590:GOSUB590:CLOSE1:GOTO120
  9. 140 PRINT:PRINT:IFRIGHT$(NA$,1)="*"THENA=LEN(NA$)-1:NA$=LEFT$(NA$,A)
  10. 150 INPUT"[145] BASIC-ZEILENNUMMER    [157][157][157][157]";ZN$:IFASC(ZN$)>57ORASC(ZN$)<48THEN150
  11. 160 ZN=VAL(ZN$):IFZN<100THEN180
  12. 170 PRINT"[145] NICHT GROESSER ALS 99![154]            ":POKE198,0:WAIT198,1:GOTO150
  13. 180 SV$=LEFT$((ZN$+" "+NA$),16)
  14. 190 N1=2054:N2=2302:POKE2049,0:POKE2050,9:POKE2051,ZN:POKE2053,143
  15. 200 GET#1,A$:GET#1,A$:PRINT"[159] LOADING "NA$"[154]"
  16. 210 FORI=N1TON2:GET#1,A$:A=ASC(A$+CHR$(0)):POKEI,A:IFA=0THENI=I-1:GOTO240
  17. 220 IFSTTHEN240
  18. 230 NEXT:PRINT" PROGRAMM ZU LANG![154]":POKE198,0:WAIT198,1:A$="J":GOTO410
  19. 240 BZ=I:CLOSE1:PRINT" SPEICHERN AUF DISKETTE ",," ALS[159] "SV$"[154] (J/N)?"
  20. 260 GOSUB500:PRINT:IFA$="J"THENPRINT"":GOTO290
  21. 270 POKE19,64:INPUT" NEUER PROGRAMMNAME: ";A$:POKE19,0:SV$=LEFT$(A$,16):PRINT"
  22. 290 [153]" DISKETTE EINGELEGEN UND OPENSHIFTCONT.":[146]653,1:[141]590
  23. 300 SW$[178]SV$[170][199](34)[170]",8:"[170][199](143)
  24. 310 NV[178][195](SW$):[129]I[178]1[164]NV:[151]3371[170]I,[198]([202](SW$,I,1)):[130]
  25. 320 A[178]BZ[170]2:[151]2049,A[175]255:[151]2050,A[173]256:[151]251,(A[170]2)[175]255:[151]252,(A[170]2)[173]256
  26. 330 [151]A[171]1,0:[151]A,0:[151]A[170]1,0:[151]45,[194](251):[151]46,[194](252)
  27. 340 [148]"************************
  28. 350 POKE45,186:POKE46,16:POKE2049,0:POKE2050,9:POKE2304,67:POKE2305,9:GOSUB560
  29. 360 ONA+1GOTO390:IFA=33THENPOKE198,0:WAIT198,1:POKE198,0:GOTO385
  30. 370 PRINT" [129]UEBERSCHREIBEN?[154] (J/N)[154]":GOSUB500:IFA$="N"THEN385
  31. 380 SW$="@0:"+SW$:GOSUB590:GOTO310
  32. 385 GOSUB590:PRINT"[145][145][145]":GOTO270
  33. 390 GOSUB590:PRINT" NOCHMAL SPEICHERN (J/N)?":GOSUB500:IFA$="J"THEN290
  34. 400 PRINT"[159] WEITERMACHEN (J/N)?[154]":GOSUB500
  35. 410 GOSUB540:FORI=N1TON2:POKEI,42:NEXT:FORI=1TO24:POKE3371+I,42:NEXT
  36. 420 POKE2051,10:POKE2375,143
  37. 430 CLOSE1:CLOSE2:POKE198,0:IFA$="J"THENRUN
  38. 440 PRINT" DIE NEUE ZEILE LADEN? (J/N)":GOSUB500:IFA$="N"THENEND
  39. 450 POKE631,147:POKE632,76:POKE633,207:POKE634,83:POKE635,86:POKE636,36
  40. 460 POKE637,44:POKE638,56:POKE639,13:POKE198,9:END
  41. 500 GETA$:IFA$="J"ORA$="N"THENGOSUB590:RETURN
  42. 510 GOTO500
  43. 520 PRINT"[147] DAS MASCHINENPROGRAMM BITTE",," ERST AUF DISKETTE BRINGEN![154]"
  44. 530 CLOSE2:END
  45. 540 PRINTCHR$(142);"[147][159]   BASIC-ZEILE MIT MASCHINENPROGRAMM[154]"
  46. 550 PRINTTAB(7)"(C) 1986 BY AXEL HOHLFELD":RETURN
  47. 560 INPUT#2,A,A$:PRINT"[129] STATUS: "A$"[154]"
  48. 570 IFA=0ORA=33ORA=62ORA=63THENRETURN
  49. 580 POKE198,0:WAIT198,1:A$="J":GOTO410
  50. 590 PRINT"[145]                                     [145]":RETURN
  51.